unit libDialog_CustomF;

interface

uses
  SysUtils, Classes, Controls, Forms, uniGUIDialogs, libBasic_CustomF,
  uniGUIBaseClasses, uniGUIClasses, uniImageList, ImgList, ActnList, uniEdit,
  uniToolBar;

type
  TfmDialog_Custom = class(TfmBasic_Custom)
    atlDialog: TActionList;
    actOk: TAction;
    actCancel: TAction;
    tolDialog_: TUniToolBar;
    btnOk: TUniToolButton;
    btnCancel: TUniToolButton;
    procedure actOkExecute(Sender: TObject);
    procedure actCancelExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TfmDialog_Custom.actCancelExecute(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TfmDialog_Custom.actOkExecute(Sender: TObject);
begin
  ModalResult := mrOK;
end;

end.

